Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/A-B/AddressAce™2.1.cpt/Address Ace™/stack_-1.xml

Extensible Markup Language | 1991-10-06 | 19KB | 20 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>1</cardCount>
    <cardID>2896</cardID>
    <listID>2291</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openStackglobal wordProcessorpush recent cardput bg fld "WP" of cd 1 into wordProcessorshow msgdoMenu "find..."end openStackon closeBackgroundsort fld "gobg"end closeBackgroundon openCardif the short name of this cd = "instruct" thendisable menu "Edit"elseenable menu "Edit"end ifpass openCardend openCardon closeCardset the scroll of bg fld "notes" to 0if visible of bg fld "export" is true then hide bg fld "export"if bg fld "mailing label" is empty thenif bg fld "name" is empty thenput bg fld "company" into line 1 of bg fld "mailing label"elseput bg fld "name" into line 1 of bg fld "mailing label"if bg fld "company" is not empty thenput return & bg fld "company" after last line of bg fld "mailing label"end ifend ifput return & bg fld "local address" after last line of bg fld "mailing label"put return & bg fld "city state zip" after last line of bg fld "mailing label"end ifpush cardpass closeCardend closeCardon commandKeyDown whatKeyif whatKey is D then type the datepass commandKeyDownend commandKeyDownon niceSortglobal wordProcessorpush this cdput "Sorting stack... " into msgsort by mySortKey()put "Compacting stack (insures the cards stay in order)... " into msgdoMenu "Compact Stack"put wordProcessor into bg fld "WP" of cd 1pop cardbeepput "Sorting complete!" into msgend niceSortfunction mySortKeyget fld "section"if bg fld "company" is empty then return it & last word of bg fld "name"elseif first word of field "company" <> "The" then return it & first word of bg fld "company"elseif first word of field "company" = "The" then return it & second word of bg fld "company"end ifend ifend mySortKeyon dialNumber phoneNumber-- Requires handler: dial from the Phone Stack-- dial the phone using the Phone Dialer stackset cursor to watchif phoneNumber is empty then exit dialNumberpush card -- remember where we arelock screen-- the 'dial' handler is in the 'Phone Dialer' stackif there is a stack "Phone Dialer" then -- ∆go stack "Phone Dialer" -- ∆dial phoneNumber  -- dial the numberelse answer "The number could not be dialed, because the Phone Dialer stack cannot be found." -- ∆pop card -- return to where we wereunlock screenend dialNumberon acePrintinganswer "Print the notes on this card or print mailing labels?"¬with "cancel" or "notes" or "labels"if it is "cancel" thenbeepexit to hypercardend ifif it is "notes" then print bg fld "name"&&bg fld "company"&&bg fld "phone" & return & bg fld "notes"of this cdif it is "labels" then answer "Print mailing labels for selectively 'marked' cards, all cards in this stack or labels just for cards in the section '" ¬& the short name of this bg &"'."&return&return& "Type ⌘-. (command-period) to cancel." with "marked" or "all" or the short name of this bgif it is "cancel" thenbeepexit to hypercardend ifif it is "marked" thenif the number of marked cards = 0 thenanswer "Presently no cards in the stack are marked for printing."&return¬&return&"Would you like to mark cards and print mailing labels right now?" with "no" or "OK"if it is "no" thenbeepexit to hypercardend ifif it is "OK" thenask "Enter the text, date, or numbers that you wish to use as a basis to select cards for printing mailing labels."if it is a date and it contains "/" thenput it into timeSlotput it into aCertainDayconvert timeSlot to secondsanswer "You have entered the date: "&it &return&return&"Do you want to mark cards for printing mailing labels that are between " & it & ¬" and another date, before "&it&", or after "&it&"?"&return&return&"Type ⌘-. (command-period) to cancel." with "between" or "before" or "after"put "Marking cards based on date criteria..." into msgif it is "between" thenask "What is the other date?"if it is not a date or "/" is not in it thenask "The second date entered is not a date recognized by Address Ace™..." & return & return & aCertainDay &&¬"has been entered, please enter another date or printing will be cancelled"if it is not a date or "/" is not in it thenput empty into msgbeepanswer "Printing has been canceled."exit to hypercardend ifend ifif it is a date and it contains "/" then convert it to secondsput it into timeSlot2if timeSlot > timeSlot2 thenput timeSlot into endDayconvert endDay to dateput timeSlot2 into startDayconvert startDay to dateanswer "Mark cards to print mailing labels for those cards dated between " & startDay &" and " & endDay & "?" & return& return&¬"For the whole stack or just the section "&quote & the short name of this bg & quote &"?" with "cancel" or "all" or short name of this bgif it is "cancel" then exit to hypercardif it is the short name of this bg thenmark cards where line 2 of bg fld "date" < timeSlot and (the short name of this bg = it)unmark cards where line 2 of bg fld "date" < timeSlot2 and (the short name of this bg =it)elsemark cards where line 2 of bg fld "date" > timeSlot2 and line 2 of bg fld "date" < timeSlotend ifend ifif timeSlot < timeSlot2 thenput timeSlot into startDayconvert startDay to dateput timeSlot2 into endDayconvert endDay to dateanswer "Mark cards to print mailing labels for those cards dated between " & startDay &" and " & endDay & "?" & return& return&¬"For the whole stack or just the section "&quote & the short name of this bg & quote &"?" with "cancel" or "all" or short name of this bgif it is "cancel" then exit to hypercardif it is the short name of this bg thenmark cards where line 2 of bg fld "date" > timeSlot and (the short name of this bg = it)unmark cards where line 2 of bg fld "date" > timeSlot2 and (the short name of this bg =it)elsemark cards where line 2 of bg fld "date" > timeSlot and line 2 of bg fld "date" < timeSlot2end ifend ifend ifif it is "before" thenanswer "You are about to mark the cards and print mailing labels for cards dated before "&aCertainDay&"."&return&return&¬"Would you like to do this in all sections or just in this section: "& the short name of this bg &"?" with "cancel" or "all" or the short name of this bgif it is "cancel" then exit to hypercardif it is "all" then mark cards where timeSlot > line 2 of bg fld "date"if it is the short name of this bg then mark cards where timeSlot > line 2 of bg fld "date" and it = the short name of this bgend ifif it is "after" thenanswer "You are about to mark the cards and print mailing labels for cards dated before "&aCertainDay&"."&return&return&¬"Would you like to do this in all sections or just in this section: "& the short name of this bg &"?" with "cancel" or "all" or the short name of this bgif it is "cancel" then exit to hypercardif it is "all" then mark cards where timeSlot < line 2 of bg fld "date"if it is the short name of this bg then mark cards where timeSlot < line 2 of bg fld "date" and it = the short name of this bgend ifif the number of marked cards = 0 thenanswer "There are no cards to mark that fit your description. Printing has been cancelled."exit to hypercardend ifpush cardput "Accumulating marked cards to print..." into msgopen report printing with template "Mailing Labels"print marked cardsclose printingunmark all cardsput empty into msgexit to hypercardend if ---end date sectionif it is empty thenbeepanswer "Printing has been cancelled."exit to hypercardend ifput it into theTextask "In what field does this information appear?"&return&return&"Choices are: 'company', 'name', 'address', 'city state zip', 'phone' or 'notes'."repeat with i = 1 to the number of bg fldsif it = the short name of bg fld i then put true into testTheItend repeatif testTheIt is not true thenbeepanswer "There is no field by the name: "&quote&it&quote&"."&return&return&"No cards have been marked and printing has been cancelled."¬&return&return&"You must spell the field name carefully. Please try again."exit to hypercardend ifif it is empty thenbeepanswer "Printing has been cancelled."exit to hypercardend ifput it into theFieldanswer "And finally, do you wish to mark all cards in the stack for printing, or just cards in this section?"¬with "cancel" or the short name of this background or "all"if it is "cancel" thenbeepanswer "Printing has been cancelled."exit to hypercardend ifif it is the short name of this background thenput "Finding cards to mark..." into messagemark cards where (fld (theField)) contains (theText) and it is the short name of this backgroundif the number of marked cards = 0 thenanswer "There are no cards to mark that fit your description. Printing has been cancelled."exit to hypercardend ifput "Accumulating marked cards to print..." into msgopen report printing with template "Mailing Labels"print marked cardsclose printingunmark all cardsput empty into msgexit to hypercardend ifif it is "all" thenput "marking cards..." into messagemark cards where (fld (theField)) contains (theText)if the number of marked cards = 0 thenput empty into msganswer "There are no cards to mark that fit your description. Printing has been cancelled."exit to hypercardend ifend ifend ifend ifput "Accumulating marked cards to print..." into msgopen report printing with template "Mailing Labels"print marked cardsclose printingunmark all cardsput "Printing has been completed into msg."put empty into msgexit to hypercardend ifif it is "all" thenpush cdgo cd 1 of this stackopen report printing with template "Mailing Labels"print all cardsclose printingpop cdend ifif it is the short name of this  bg thengo cd 1 of this bgput "Accumulating cards from this section to print..." into msgopen report printing with template "Mailing Labels"repeat for the number of cards of this bgprint this cardgo next cardend repeatclose printingput empty into msgend ifend acePrintingon NewBkgndglobal userLevelset cursor to 4put the userLevel into useLevSavset the userLevel to 5set cantAbort of this stack to trueput bg fld "gobg" into DirectorydoMenu "New Card"lock screendoMenu "Cut Card"go homeask "What is the title of this new section?"if it is empty thenpop cardreset menuBaranswer "You must title your section!" & return & return & "If you'd like to try again, click the 'New Section' button."hide msgexit NewBkgndend ifdoMenu "Paste Card"set the name of this bg to itput it into bg fld "section"set the cantDelete of this bg to falsedoMenu "Cut Card"go last cd of stack "Address Ace™"put empty into msgput "OK, we're getting there!" into msgdoMenu "Paste Card"set the cantDelete of this bg to trueput Directory into bg fld "gobg" of last cdput return & it after last line of bg fld "gobg"sort bg fld "gobg"put bg fld "gobg" into Directoryrepeat with x = 1 to the number of lines of Directorygo bg (line x of Directory)put Directory into bg fld "gobg"end repeatset the userLevel to useLevSavset cantAbort of this stack to falsego bg itbeepput "The section "& quote & it & quote &" has been added to this stack."unlock screenset cursor to 1end NewBkgndon moveItglobal wordProcessorif visible of bg fld "export" is true thenhide bg fld "export"hide msgexit moveItend ifif bg fld "WP" of cd 1 is empty and wordProcessor is empty thenanswer "This is the " & quote & "Open Application" & quote & " button." with "cancel" or "continue"if it is "continue" thenanswer "This stack hasn't been set up to export its information to your word processor yet." with "continue"ask "Please refer to the notes on setting up templates (in the scrolling field)." & return & return & "After you've done that, enter the name of your word " &¬"processing program in the space below. Please use the exact spelling." &return&return &"'Cancel' if you're not ready to do this yet." with "Microsoft Word"if it is empty then exit moveItput it into bg fld "WP" of cd 1put it into "wordProcessor"exit moveItend ifif it is "cancel" then exit moveItend ifTRANSend moveIton TRANSglobal wordProcessoranswer "Transfer the information on this card to write" & return & return & "(to cancel type command - period " & quote & "⌘–." & quote & ")" with "envelope" or "letter" or "invoice"if it is "cancel" then exit TRANSshow bg field "export"if field "export" is not empty thenselect text of field "export"doMenu "copy text"hide field "export"if it is "envelope" then open "envelope template" with wordProcessorif it is "letter" then open "letter template" with wordProcessorif it is "invoice" then open "invoice template" with wordProcessorexit TRANSend iffillerUpselect text of field "export"doMenu "copy text"hide field "export"if it is "envelope" then open "envelope template" with wordProcessorif it is "letter" then open "letter template" with wordProcessorif it is "invoice" then open "invoice template" with wordProcessorend TRANSon reTransglobal wordProcessorif wordProcessor is empty thenask "What is the name of the [word processing] program you'd like to export this card's information to?" & return & return &¬"Be sure use the spelling of the program as it appears on the desktop." & return & return & "Microsft Word is the default setting." with Microsoft Wordelseask wordProcessor && "is program you're sending this card's information to." & return & return & "If that suits you click 'OK' or type in the name of the " ¬& "program you prefer and then click 'OK'." & return & return & "If you select 'cancel' no program is selected and this feature will be inactive." with wordProcessorend ifif it is "cancel" thenexit to Hypercardelseput it into wordProcessorput it into bg fld "WP" of cd 1end ifend reTranson makeOveranswer "To update names and addresses on the mailing label and export field." & return & return & "Select 'Mail' or 'Export' or 'Both'." & ¬return & return & "Type '⌘-.' to cancel." with "Mail" or "Export" or "Both"if it is "Mail" thenreMailend ifif it is "Export" thenshow bg fld "export"put empty into bg fld "export"fillerUphide bg fld "export"end ifif it is "Both" thenreMailshow bg fld "export"put empty into bg fld "export"fillerUphide bg fld "export"end ifend makeOveron reMailshow bg fld "mailing label"put empty into bg fld "mailing label"send closeCardhide bg fld "mailing label"set the hilight of bg button "mailing label" to falseend remailon fillerUpif field "company" is not empty thenput field "company" into line 1 of field "export"put field "local address" into line 2 of field "export"put field "city state zip" into line 3 of field "export"if field "name" is not empty thenput return & "Attn.:" & field "name" after last line of bg fld "export"end ifif line 1 of field "phone" is not empty then put return & line 1 of bg fld "phone" after last line of bg fld "export"if line 2 of field "phone" is not empty then put return & line 2 of bg fld "phone" after last line of bg fld "export"if line 3 of field "phone" is not empty then put return & line 3 of bg fld "phone" && "(fax)" after last line of bg fld "export"if line 4 of field "phone" is not empty then put return & line 4 of bg fld "phone" && "(home)"after last line of bg fld "export"end ifif field "company" is empty thenput bg fld "name" into line 1 of  bg fld "export"put field "local address" into line 2 of field "export"put field "city state zip" into line 3 of field "export"if line 1 of field "phone" is not empty then put return & line 1 of bg fld "phone" after last line of bg fld "export"if line 2 of field "phone" is not empty then put return & line 2 of bg fld "phone" after last line of bg fld "export"if line 3 of field "phone" is not empty then put return & line 3 of bg fld "phone" && "(fax)" after last line of bg fld "export"if line 4 of field "phone" is not empty then put return & line 4 of bg fld "phone" && "(home)"after last line of bg fld "export"end ifput return & field "tax#" after last line of field "export"put "Check this information for any corrections." into msgwait 50 tickshide msgend fillerUpon adVertpush this cdhide cd fld "manual" of cd "Instruct"hide cd button 3 of cd "Instruct"hide cd button 6 of cd "Instruct"hide cd button 11 of cd "Instruct"hide cd button 13 of cd "Instruct"hide cd button 18 of cd "Instruct"hide menuBarhide msgshow pict of cd "Instruct"visual effect stretch from centergo cd "Instruct"answer "Address Ace™ v.2.1"&return&"© 1991 by Ken Schles all rights reserved."&return&return&"AppreciationWare. Send $5.00 to:"&return&"Ken Schles"&return&"224"¬&" Avenue B #10"&return&"NYC, NY 10009"&return&"This small token will be much appreciated."&return&return&"I can be reached via E mail AOL KenS16 or by fax @ 212-677-5931."visual effect iris closepop cardhide pict of cd "Instruct"show cd button 3 of cd "Instruct"show cd button 6 of cd "Instruct"show cd button 11 of cd "Instruct"show cd button 13 of cd "Instruct"show cd button 18 of cd "Instruct"show cd fld "manual" of cd "Instruct"show menuBarshow msgend adVerton suspendStackglobal wordProcessorreset menuBarput wordProcessor into bg fld "WP" of cd 1put empty into wordProcessorhide msgset the loc of msg to 20,300end suspendStackon resumeStackglobal wordProcessorreset menuBarpush recent cardput bg fld "WP" of cd 1 into wordProcessorshow msgdoMenu "find..."end resumeStackon closeStackglobal wordProcessorreset menuBarput wordProcessor into bg fld "WP" of cd 1put empty into wordProcessorhide msgend closeStack</script>
    <background id="2637" file="background_2637.xml" name="Instruction Card" />
    <card id="2896" file="card_2896.xml" marked="false" name="Instruct" owner="2637" />
</stack>